home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
dbase
/
gcbadres.lha
/
GCBAdresse
/
Install_GCBAdresse
< prev
next >
Wrap
Text File
|
1995-08-10
|
21KB
|
781 lines
;-------------------------------------------------------------------
; $VER: Install-GCB-Produkte V2.00 Dienstag 24.01.95
; Gabriele Christine Bauer
; St.-Augustinus-Str 74
; 81825 München
; Deutschland
;-------------------------------------------------------------------
; Globalvariablen
;-------------------------------------------------------------------
(set produkt (cat "GCBAdresse"))
(set version (cat "V3.06"))
(delopts AskUser)
(set @language "deutsch")
(set false 0)
(set true 1)
;-------------------------------------------------------------------
; Begrüßung
;-------------------------------------------------------------------
(set gruss (cat "Willkommen bei der Installation von "produkt" "version))
(welcome gruss)
;-------------------------------------------------------------------
; Ermittlung Kickstart und Workbench
;-------------------------------------------------------------------
(set kickVersion (shiftright (getversion) 16))
(set wbVersion (shiftright (getversion "LIBS:version.library") 16))
;-------------------------------------------------------------------
; Abfrage auf richtige Version
;-------------------------------------------------------------------
(set abbruch
(cat "Leider sind Sie nicht im Besitz einer Workbench-Version 2.04 oder höher"
"\n\n"
"Somit können Sie "produkt" nicht installieren"
"\n\n"
"Abbruch der Installation"
)
)
(if (< WBVersion 37)
(
(message abbruch)
(exit (quiet))
)
)
(complete 0)
;-------------------------------------------------------------------
; Copyright
;-------------------------------------------------------------------
(set copyright
(cat "\n\n"
produkt"-Installationsskript."
"\n"
"Diese Installationsroutine installiert "produkt" auf Ihrem Amiga."
"\n\n"
"Lesen Sie bitte die Dokumentation für "
"weitere Informationen über die Weitergeabe. "
"\n\n"
produkt" "version" © 1995 Gabriele Christine Bauer "
"\n"
"Alle Rechte vorbehalten."
)
)
(message copyright)
(complete 10)
;-------------------------------------------------------------------
; Abfrage auf vorhandene Installation
;-------------------------------------------------------------------
(set gcbvorhanden false)
(set produktvorhanden false)
(if (= (exists "S:GCBProdukt.exists") true)
(
(set gcbvorhanden true)
(if (= (exists (cat "GCBProdukte:"produkt)) true)
(
(set produktvorhanden true)
)
)
(if ( and (= produktvorhanden false) (= (exists (cat "SYS:WBStartup/"produkt)) true))
(
(set produktvorhanden true)
)
)
)
)
(complete 20)
;-------------------------------------------------------------------
; Abfrage auf Installationsart
;-------------------------------------------------------------------
(set frage
(cat "Bitte wählen Sie eine der unten stehenden Möglichkeiten aus:"
)
)
(if (= produktvorhanden false)
(
(set inst
(cat "Installation von "produkt" "version
)
)
)
)
(if (= produktvorhanden true)
(
(set inst
(cat "Update auf "produkt" "version
)
)
)
)
(set remo
(cat produkt" von Festplatte entfernen"
)
)
(set vers
(cat "Systeminformationen abrufen"
)
)
(set wahl
(askchoice
(prompt frage)
(choices inst remo vers)
(help @askchoise-help)
)
)
(complete 30)
;-------------------------------------------------------------------
; Abfrage auf Remove
;-------------------------------------------------------------------
(set abbruch
(cat "\n\n"
"Sie können "produkt" nicht von der Festplatte entfernen, "
"da Sie es noch nicht installiert haben."
)
)
(if (and (= produktvorhanden false) (= wahl 1))
(
(message abbruch)
(exit (quiet))
)
)
(complete 40)
;-------------------------------------------------------------------
; Sichern der pers. Daten
;-------------------------------------------------------------------
(if (and (= wahl 0) (= produktvorhanden true))
(
(run ("makedir >nil: RAM:GCBDAT"))
(set text
(cat "\n\nDa Sie schon eine Version von "produkt" installiert haben, "
"werden zuerst Ihre persönlichen Daten zwischengespeichert."
)
)
(message text)
(set text
(cat "Sichere persönliche Daten nach RAM:GCBDAT"
)
)
(if (= produkt (cat "GCBPlaner"))
(
(if (= (exists "GCBProdukte:GCBPlaner.key") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBPlaner.key")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBPlaner.Dat") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBPlaner.Dat")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBPlaner.Konfig") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBPlaner.Konfig")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "SYS:WBStartup/GCBPlaner.info") true)
(
(copyfiles
(prompt text)
(source "SYS:WBStartup/GCBPlaner.info")
(dest "RAM:GCBDAT/")
)
)
)
)
)
(if (= produkt (cat "GCBVideo"))
(
(if (= (exists "GCBProdukte:GCBVideo.Key") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.Key")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBVideo.Konfig") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.Konfig")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBVideo.Archiv") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.Archiv")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBVideo.Aufnahmen") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.Aufnahmen")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBVideo.Frei") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.Frei")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBVideo.Kategorien") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.Kategorien")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBVideo.Programme") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.Programme")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBVideo.info") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBVideo.info")
(dest "RAM:GCBDAT/")
)
)
)
)
)
(if (= produkt (cat "GCBAdresse"))
(
(if (= (exists "GCBProdukte:GCBAdresse.Key") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.Key")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBAdresse.Orte") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.Orte")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBAdresse.Bank") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.Bank")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBAdresse.Konfig") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.Konfig")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBAdresse.Adressen") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.Adressen")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBAdresse.GrpSchalt") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.GrpSchalt")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBAdresse.Gruppen") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.Gruppen")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBAdresse.info") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBAdresse.info")
(dest "RAM:GCBDAT/")
)
)
)
)
)
(if (= produkt (cat "GCBNotiz"))
(
(if (= (exists "GCBProdukte:GCBNotiz.Key") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBNotiz.Key")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBNotiz.Konfig") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBNotiz.Konfig")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBNotiz.Notizen") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBNotiz.Notizen")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBNotiz.info") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBNotiz.info")
(dest "RAM:GCBDAT/")
)
)
)
)
)
(if (= produkt (cat "GCBDruck"))
(
(if (= (exists "GCBProdukte:GCBDruck.Key") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBDruck.Key")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBDruck.Konfig") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBDruck.Konfig")
(dest "RAM:GCBDAT/")
)
)
)
(if (= (exists "GCBProdukte:GCBDruck.info") true)
(
(copyfiles
(prompt text)
(source "GCBProdukte:GCBDruck.info")
(dest "RAM:GCBDAT/")
)
)
)
)
)
)
)
(complete 50)
;-------------------------------------------------------------------
; Entferne bisherige Installation bei (wahl < 2)
;-------------------------------------------------------------------
(if (and (< wahl 2) (= produktvorhanden true))
(
(set text
(cat "\n\nAuf Ihrer Festplatte wird nun "produkt" entfernt"
)
)
(message text)
(run
(cat "delete >nil: SYS:WBStartUp/"produkt"#? all"
)
)
(run
(cat "delete >nil: GCBProdukte:"produkt"#? all"
)
)
(set produktvorhanden false)
)
)
(complete 70)
;-------------------------------------------------------------------
; Entferne Assign & s:gcbprodukt.exists
;-------------------------------------------------------------------
(set sonstgcbprodukt false)
(if (and (< wahl 2) (= gcbvorhanden true))
(
(if (= (exists "SYS:WBStartup/GCBPlaner") true)
(
(set sonstgcbprodukt true)
)
)
(if (= (exists "GCBProdukte:GCBVideo") true)
(
(set sonstgcbprodukt true)
)
)
(if (= (exists "GCBProdukte:GCBAdresse") true)
(
(set sonstgcbprodukt true)
)
)
(if (= (exists "GCBProdukte:GCBNotiz") true)
(
(set sonstgcbprodukt true)
)
)
(if (= (exists "GCBProdukte:GCBDruck") true)
(
(set sonstgcbprodukt true)
)
)
(if (= sonstgcbprodukt false)
(
(run ("execute gcbwo"))
(set srcdir (getenv "GCBTemp"))
(delete "ENV:GCBTemp")
(set text
(cat "Da Sie keine weiteren GCB-Produkte installiert haben, "
"wird die Schublade "srcdir" auf Ihrer Festplatte gelöscht und "
"der Assign in der Datei USER-Startup entfernt."
)
)
(startup "GCB-Produkte"
(prompt text)
(help @startup-help)
)
(run "assign GCBProdukte: remove")
(run
(cat "delete >nil: \""srcdir"\" all"
)
)
(delete "S:GCBProdukt.exists")
(set gcbvorhanden false)
)
)
)
)
(if (= wahl 1)
(
(exit (quiet))
)
)
(complete 80)
;-------------------------------------------------------------------
; Installieren neue Version (wahl = 0)
;-------------------------------------------------------------------
(if (= wahl 0)
(
(if (= (exists (cat "WBStartUp/"produkt)) true)
(
(set text
(cat "\n\nKopiere das Startprogramm von "produkt" in die Schublade "
"SYS:WBStartUp. Beim nächsten Rechnerstart wird das Startprogramm "
" aktiv."
)
)
(message text)
(copyfiles
(prompt "Installiere Startprogramm")
(source "WBStartUp/")
(pattern "#?")
(dest "SYS:WBStartUp")
)
)
)
(if (= gcbvorhanden false)
(
(set GCBWahl
(askdir
(prompt
(cat "Wohin soll "produkt" installiert werden ?\nEin Verzeichnis"
" GCBProdukte wird erzeugt."
)
)
(help @askdir-help)
(default "SYS:")
)
)
(set GCBDir (tackon GCBWahl "GCBProdukte"))
(makedir GCBDir)
(run (cat "assign GCBProdukte: \""GCBDir"\""))
(set GCBORGXX GCBDir)
(set GCBDir "GCBProdukte:")
)
)
(if (= gcbvorhanden true)
(
(set GCBDir "GCBProdukte:")
)
)
(set text
(cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
" in das Verzeichnis "GCBDir
"\n\n"
"\nDies ist eine nicht registrierte Public-Domain-Version. Mit dieser "
"Version sind nur 5 Einträge möglich."
)
)
(if (= (exists (cat "GCBProdukte/"produkt".key")) true)
(
(set text
(cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
" in das Verzeichnis "GCBDir
"\n\n"
"\nDies ist eine registrierte Shareware-Verion. Nochmals "
"vielen Dank für die Unterstützung des Shareware-Konzepts"
)
)
(run
(cat "delete >nil: RAM:GCBDAT/"produkt".key")
)
)
)
(if (= (exists (cat "RAM:GCBDAT/"produkt".key")) true)
(
(set text
(cat "\nKopiere die Oberfläche von "produkt" und die Dokumentation"
" in das Verzeichnis "GCBDir
"\n\n"
"\nDies ist eine registrierte Shareware-Verion. Nochmals "
"vielen Dank für die Unterstützung des Shareware-Konzepts"
)
)
)
)
(message text)
(copyfiles
(prompt (cat "Installiere "produkt))
(source "GCBProdukte/")
(pattern "#?")
(dest GCBDir)
)
(set frage
(cat "Bitte wählen Sie einen geeigneten Monitor-Treiber aus:"
)
)
(set tpal
(cat "PAL"
)
)
(set tmulti
(cat "MultiScan-Monitor"
)
)
(set monitor
(askchoice
(prompt frage)
(choices tpal tmulti)
(help @askchoise-help)
)
)
(if (= produkt "GCBPlaner")
(set gespfad
(cat GCBDIR Produkt".bearb"
)
)
)
(if (NOT (= produkt "GCBPlaner"))
(set gespfad
(cat GCBDIR Produkt
)
)
)
(run
(cat "delete >nil: "gespfad)
)
(if (= monitor 0)
(
(run
(cat "rename >nil: "gespfad".Pal "gespfad)
)
)
)
(if (= monitor 1)
(
(run
(cat "rename >nil: "gespfad".MultiScan "gespfad)
)
)
)
(if (= (exists "libs/CanDo.library") true)
(
(copylib
(prompt "Installiere CanDo.library")
(help @copylib-help)
(confirm)
(source "libs/CanDo.library")
(dest "Libs:")
)
)
)
(if (= (exists "libs/CanDoGfx.library") true)
(
(copylib
(prompt "Installiere CanDoGfx.library")
(help @copylib-help)
(confirm)
(source "libs/CanDoGfx.library")
(dest "Libs:")
)
)
)
(if (= (exists "libs/INOVAMusic.library") true)
(
(copylib
(prompt "Installiere INOVAMusic.library")
(help @copylib-help)
(confirm)
(source "libs/INOVAMusic.library")
(dest "Libs:")
)
)
)
(if (= (exists "Fonts/GCBPlaner.font") true)
(
(copyfiles
(prompt "Installiere Fonts")
(source "Fonts/")
(pattern "#?")
(dest "Fonts:")
)
)
)
(if (= (exists "s/GCBProdukt.exists") true)
(
(copyfiles
(prompt "Installiere GCB-Marker")
(source "S/")
(pattern "#?")
(dest "S:")
)
)
)
(if (= gcbvorhanden false)
(
(copyfiles
(prompt "Installiere Schubladen-Icon")
(source "GCBProdukte.info")
(dest GCBWahl)
)
)
)
(if (= gcbvorhanden false)
(
(set user_script
(cat " Assign GCBProdukte: \"" GCBORGXX "\""
)
)
(working omp "Updating S:User-Startup.")
(startup "GCB-Produkte"
(prompt
"Diese Instruktionen müssen an die Datei \"S:User-Startup\" hinzugefügt"
"werden."
"Somit ist Ihr System für den Einsatz von "produkt" konfiguriert.\n\n"
user_script
)
(help @startup-help)
(command user_script)
)
)
)
)
)
(complete 90)
;-------------------------------------------------------------------
; Kopieren Zwischendateien aus RAM: (pattern produkt & wahl = 0)
;-------------------------------------------------------------------
(if (and (= wahl 0) (= (exists "RAM:GCBDAT/GCBPlaner.info") 1))
(
(copyfiles
(prompt "Kopiere pers. Datenfiles in neue Installation")
(source "RAM:GCBDAT/GCBPlaner.info")
(dest "SYS:WBStartup/")
)
(run "delete >nil: ram:gcbdat/GCBPlaner.info")
)
)
(if (and (= wahl 0) (= (exists "RAM:GCBDAT/") 2))
(
(copyfiles
(prompt "Kopiere pers. Datenfiles in neue Installation")
(source "RAM:GCBDAT/")
(pattern (cat produkt"#?"))
(dest GCBDir)
)
(run "delete >nil: ram:gcbdat all")
)
)
(complete 100)
;-------------------------------------------------------------------
; Auskunft über System (wahl = 2)
;-------------------------------------------------------------------
(if (= wahl 2)
(
(run "Version >ENV:GCBInfo")
(set systeminfo
(cat "Information über Ihr System:\n\n"
(getenv "GCBInfo")
"\n"produkt" "version
)
)
(delete "ENV:GCBInfo")
(message systeminfo)
(exit (quiet))
)
)
(complete 100)
;-------------------------------------------------------------------
; Endlich am Ende
;-------------------------------------------------------------------
(set @default-dest GCBDir)
(set text
(cat "Die Installation von "produkt" "version" ist nun abgeschlossen."
"\n\nBitte lesen Sie die Dokumentation, zu diesem Produkt, die Sie "
"in "GCBDir" finden können, bzw. mir der Help-Taste aus dem Programm heraus"
" aufrufen können.\n\nViel Spaß mit Ihrer neuen Software"
)
)
(exit text)
